
	DEFINE VARIABLE pgmlevel AS INTEGER INITIAL 1.
	DEFINE VARIABLE pgmstack AS CHARACTER.
